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zx, 

a domanda 
risponde 

Apple 
■nsegna 
la geometria 

Spectrum 
disegna Marilyn 



concorso 



continua 
grande 



il tuo 
Spectrum 



TI 99/4A 



Sottomanno 




S ono dappertutto: si insinuano 
anche a pochi metri dalle 
spiagge dove ci si crogiolava 
d'estate e, qualche volta, si lasciano 
persino scoprire. I sottomarini-spia: 
non ci sarebbe troppo da meravi- 
gliarsi di trovarne qualcuno che pi- 
roetta tranquillo e beato nell'acqua 
della nostra vasca da bagno. Meglio 
essere previdenti, e allenarsi fin d o- 
ra per toglierli di mezzo con disin- 
voltura. Magari con l'aiuto del per- 
sonal. E di un bel giochino escogita- 
to per il TI 99 e che, guarda caso. e 
una caccia al sottomarino in movi- 



Tentare di stanare un 
sottomarino troppo 
invadente sta diventando 
quasi una moda. Tanto 
vale allenarsi col tuo 
Texas e questo 
programma che... 



mento lungo le quattro direzioni 
cardinali. Per colpirlo, come ogni 
lanciasiluri che si rispetti, si debbo- 
no azzeccare le coordinate che 
sono: 

• la latitudine (indicata per como- 
ditii con una graduazione ad hoc da 
uno a 20) 

• la longitudine (1-^30) 

• la profonditk (1 -f3). 

Colpito il malcapitato sommergi- 
bile, il T1-99/4A si premura di av- 
vertirci, dicendo anche quanti colpi 
abbiamo utilizzato. 

Nicola Pantera 



100 CALL CLEAR 
110 CALL SCREEN <9> 

120 FOR 1=1 TO 24 

130 PRINT " SECTOR" 

140 NEXT 1 

150 K=0 

160 CALL CLEAR 
170 CALL SCREEN (6> 

130 CALL COLOR (5.10,2) 

190 CALL CLEAR <6.10.2) 

200 CALL COLOR <7.10.2) 

210 CALL COLOR <8, 10.2) 

220 RANDOMIZE 
230 PR0=INT < 3*RN0 ) + 1 
240 L0N=INT <29*RND>+1 
250 LAT = I NT <19*RND)+1 
260 N=0 

278 D I R= I NT < 4+ RND ) + 1 
280 IF DIR =1 THEN 320 
290 IF DIR =2 THEN 340 
300 IF DIR =3 THEN 360 
310 IF DIR =4 THEN 380 
320 D I R *•= " W " 

330 GOTO 400 
340 DIR*=“N" 

350 GOTO 420. 

360 D I R *= " E " 

370 GOTO 440 
330 DIR*="S" 

390 GOTO 460 
400 L0N=L0N-1 

418 IF LON < 1 THEN 260 ELSE 480 
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LAT=LAT-1 

IF LAT < 1 THEN 260 ELSE 480 
LON=LON+ 1 

IF LON >30 THEN 260 ELSE 480 
LAT=LAT + 1 

IF LAT >20 THEN 260 
N=N+ 1 

IF N=4 THEN 260 
INPUT “LATITUDINE ? " :X 

INPUT “LONGITUDINE ? " :Y 

INPUT "PROFONDITA'? “ sZ 

K=K+ 1 

D1S=SQR < <X-LAT) ' 2+ (Y-LON > ‘ 2) 

PRINT " DI REZ I ONE : ";DIR* 

PRINT “DISTANZA: ";DIS 

PRINT "" 

IF Y=LON THEN 590 ELSE 650 
IF X=LAT THEN 600 ELSE 650 
IF Z=PR0 THEN 610 ELSE 650 
PRINT " BRAUO 1 ! ! HA I AFFONDATO 
IL SOTTOMARINO NEMICOIN ”;Kj" COLPI" 
INPUT "UUOI GIOCARE ANCORA ? 

<S/N>“! S* 

IF S*=“S“ THEN 280 

IF S*="N“ THEN 700 

IF Y= LON THEN 660 ELSE 670 

PRINT " HA I SCOPERTO LA LONGITUDINE" 

IF X= LAT THEN 680 ELSE 2S0 

PRINT " HA I SCOPERTO LA LATITUDINE" 

PRINT “" 

END 
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